home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / SprWyraz.ced < prev    next >
Text File  |  1999-02-10  |  2KB  |  84 lines
  1. /*
  2. $ver: SprWyraz.ced 1.0 (26.11.98) BLABLA PRODUCT
  3. © 1998 Siumot/BlaBla
  4.  
  5. Skrypt jest przeznaczony dla programu CED. Sprawdza on poprawnoôê,
  6. pod wzglëdem ortograficznym, wyrazu znajdujâcego sië pod kursorem w programie
  7. CED. Jeôli w konfiguracji programu Ort jest ustawione îâczenie wyrazów
  8. a pod kursorem znajduje sië wyraz, który Ort îâczy (np. "nie") to skrypt
  9. odczyta nastëpny wyraz i do sprawdzenia przeôle poîâczony wyraz (np.
  10. "nie lubië"). W takiej sytuacji kursor tekstowy zostanie przesuniëty na
  11. drugi wyraz. Skrypt najlepiej podîoûyê pod klawisz funkcyjny w programie CED.
  12.  
  13. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
  14.          to musisz dopisaê nastëpujâcâ linië:
  15.          ORTFILENAME=ôcieûka dostëpu/Ort
  16.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  17.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  18. */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. loncz_wyr='NIE NA CO PO JAK OD W BEZ Z NAD'
  23.  
  24. IF ~SHOW('P', 'rexx_ced') THEN EXIT 1
  25. ADDRESS 'rexx_ced'
  26.  
  27. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  28.    IF ORTFILENAME='ORTFILENAME' THEN DO
  29.      OKAY1 'Program Ort nie jest uruchomiony.'
  30.      EXIT
  31.    END
  32.    DM 'Uruchamiam program Ort'
  33.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
  34.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  35. END
  36.  
  37. ADDRESS '2b_Ort_rexx' Prefs Join Words
  38. czylacz=RESULT
  39.  
  40. GETWORD
  41. wyraz=RESULT
  42.  
  43. IF wyraz=0 THEN DO
  44.   DM 'Nie ma wyrazu pod kursorem!'
  45.   Wait(1)
  46.   DM
  47.   Exit
  48. END
  49.  
  50. DM 'Sprawdzam wyraz'
  51.  
  52. IF czylacz=1 THEN DO
  53.   wyraz_duzy=UPPER(wyraz)
  54.   IF ~(FIND(loncz_wyr,wyraz_duzy)=0) THEN DO
  55.     NEXT WORD
  56.     GETWORD
  57.     dczlon=RESULT
  58.     IF FIND(loncz_wyr' I A RESULT',UPPER(dczlon))=0 THEN wyraz=wyraz' 'dczlon
  59.     ELSE PREV WORD
  60.   END
  61. END
  62.  
  63. ADDRESS '2b_Ort_rexx' Correction wyraz
  64.  
  65. err=RESULT
  66. IF err=0 THEN tekst='Wyraz poprawny'
  67. ELSE IF err=1 THEN tekst='Nieznany wyraz'
  68. ELSE IF err=2 THEN tekst='Wyraz jest wyjâtkiem'
  69. ELSE IF err=3 THEN tekst='Bîâd interpunkcyjny'
  70.  
  71. DM tekst
  72. Wait(1)
  73. DM
  74.  
  75. EXIT
  76.  
  77. Wait:
  78.     ARG Delay
  79.     TIME( 'R' )
  80.     DO WHILE (TIME( 'E' ) < Delay)
  81.         NOP
  82.     END
  83.     RETURN 0
  84.